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FLEXED POINT MATH 46 BIT, MUL/DIV - 92K0506-007 A 


cos =si(‘<ié‘élO SINGLE PRECISION FIXED POINT COSINE 


} 
ae: 
noe 
i 


* C@S(X) FOR w#PI <= 4#X <= +P] 
_#THIS RBUTINE CALLS ON SUBROUTINE 'POLY! 
“es . 
ho a 48a COS(X) FOR XIN @PT TO +PT 
i “a 4 IS EVALUATED AS ; 
| ee -F SINCPI/2=ABS(X), WHICH 
1031104 REDUCES THE VARIABLE - 
»PBLY | 
A 04,027.=0650,010421,0052525 | 
:0,077777.0 . . ae 
»XCOS CO@S(A) IS SCALED #4172... 


/ 


FIXED POINT MATH = 16 BIT, MUL/DIV 


PAGE Os 
% 
* EXN 
‘ ee 
#. EXP (=X) r GI 
#THIS ROUTINE - 
0 
ae nouap 
. . 2 INR 
aia Sea 
Pe Ne PGA 
4 DATA 


_ XEXN LF ENTR 


ices Dees hk eer ceed 
i 


hat eet fies 
i 
i 
{ 


»DATA 
»JMP a 
» JMP 


» MORE 
END | 


| QO 


“y XEXN@16 


SINGLE PRECISION FIXED POINT 
VEN 0 éay < 1 . 
CALLS ON SUBROUTINE 'POLY? 


»XEXN ERROR EXIT .,. FOR /<=X<1 


»XEXN INPUT AND BUTPUT | 
»XEXN . ARE SCALED #1..,. 
»POLY = 
10+"0250.02356,-012447,037770 
20,7°077777,077777 


~4XEXN 


EXP (eX) # 1 


{ 


4 


| ‘o} 


PAGE 3 
; F FIXED POINT MATH 46 BIT, MUL/DIV 
# . . 
eX ATN SINGLE PRECISION FIXED P@INT ARCTANGENT 
* | , 
XATN ,ENTR :  ARCTANCA) FOR 16A641.., 
; 7 »CALL POLY INPUT AND QUTPUT ARE SCALED #1 
1 »DATA 51.0272, -01725,04633.7010226,014500 
. DATA »#025242,0,077777.0 
See Ae oJdMPe A XATN | . 
MORE : : 
»END s 


% 

+ 
*  XLOG 

* 

*% 

* 
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FIXED POINT MATH 146 BIT, MUL/DIV 


SINGLE PRECISION FIXED POINT LOGARITHM 


LOG(1+X) , GIVEN #1 < X « #1 


JANG 
~, INR 


1 —, DATA 
DATA 


2 SMP we 


XLOG .ENTR 


eae »M@GRE 
»END 


»CALL 


»XL@G 
»XLOG 


aXLOG oo moe 


0.0532 ~03406,010512.-016407. 025026 
2703776350,077777,20 
»XLOG | | - 


eXLOG-18 | 


%* 


FIXED POINT MATH | 


_PBLY 


16 BIT, MUL/DIV 


SINGLE PRECISION FIXED POINT 
POLYNOMIAL EVALUATAR 


_#THIS UTILITY ROUTINE IS DESIGNED SPECIFICALLY F@R THE 


ane 


. POL2 


POLS 


“4 STX 
»STA 


STA 
“,LDX 


»LDA 


@dAZ 


»LDB 


9 MUL 


»STA 
»TZA 


aSTA 


»LXR 


»sLDA | 
9 SAZ 


»ADD 
» TAB 
»TZA 
»MUL 
» JMP 


y TXR- 


»LDA 


— ,ADD 


» TAB 
»TZA 
»MUL 
»1XR 
»XAZ 


“ADD 


»TXR 
»OTX 
rLDX 


“#GROUP @F ELEMENTARY FUNCTION... IT MAY BE USED,WITH 
igus CAUTION, 


a GENERAL POLY NOT AL: PROBLEMS 


| - }POLY- 4 


»POLY=3 


POLY-2' 


»PBLY 
»0,1 


POLL 
»sPOLY=3 


2040000 
»PBLY «3 
»PBLY-2 


,PBLY 


20.1 


»POL2 
»POLY 


r : 
»PBLY=-2 
»POLL 


Ort 7 


»PBL3 
»POLY 


»PBLY=3 


»PULY a4 
0,4 


& 2 
»>PALY 
a 


~ PALY  ,ENTR 
, UMP 
: MORE 
| “END 
pee ee 
oe 7 


PAGE 6 


»BSS 
DATA 


> JMP#® 


PAGE 7 


# 
% 
_*. XSIN 
% 
% 


FIXED POINT MATH 


ie. 


16 BIT, MUL/DIV | yee 


SINGLE PRECISION FIXED POINT SINE 


SIN(X) FAR X RETWEEN =PI/4 AND +PI/4. 
CALLS SUBRYUTINE 'POLY'. X IN AR SCALED #1/4 


: 
XSIN ,ENTR — 
Fe SAP 


,ADD 
»JAP 
»CPA 
» TAR 
SUB 

a IMP 

» JAN 
9 CPA 
» TAR 
»ADD 


»CALL 
»DATA 
DATA 


2 UMP 


»DATA 
» MORE 
»END 


—sASLA | 


ete 


2427 
p44 


4g 422, 
ee hd: 


#419 
5 #44 


REDUCE A T@ BETW. + OR -' PI/2 
eee CALL IT Y 7 
IF NEG. USE YSABS(A*PI/2)=P1/2 


IF A #VE USE ee 
YSABS(A=PI/2)4#PI/2 


6150274-0650,010421, "952525 


»0,077777.0 


»XSIN 


2031104 


, 


s 


PAGE 8 


_ XEXP 


Oe es & kK eR & 


» INR 


TAR 
»ADDI 
»CALL 


ad MP 


| settee hdecntchdaee ny banat Scam yin of henna 


» TAB 

»MUL 

Siu iN diane, sue aa 

XEXP ,B8ES 

» JMP 
_» DATA 


»END 


oe NR. 


>MORE. 


“FIXED POINT MATH 


EXP(+X) X BETO.4 


,XEXP 
»XEXP 
»XEXP- 


,077777. 


»XEXN 


HH? 


,XEXP 43 - 
»XEXP 
40 


»RBEXP 


(2053374 — 


16 BIT, MUL/DIV. - 


SINGLE PRECISIGN FIXED P@INT 


POSITIVE EXPONENTIAL 


sat 


g. 


FIXED PQINT MATH. 


XSOT 


“INR 
» TNR 
(ROP 


, JAZ 


»STB 
»ERA 


arn a 


yXSQT 


»XSQT 


»XSQT | 
XSOT+it 
»XSQT+12 
Or ies 
1 #45 


—aXSOT+12 | 


»XSQT 
»XSQT+12 


A XSOT+6 


»XSOT+10 
»XSQT+#12 
»XSQT+8 
»XSQT+6 


sXSQT+8 


»XSOT+9 
oi 
»XSOT+8 
»XSQT+8 
»XSOT+9 
©0377 
»SQT1 | 
»XSOT+7 
»XSQOT+8 


6 
46 BIT, MUL/DIV 


SINGLE PRECISION FIXED POINT SQUARE ROOT 


SQUARE RO@T OF X FORO <z X < 4 


To 


PAGE: 


xXSQt 


»XSQT#3 
it 


 ¢ 


1He4 
»XSQT+7 
»XSQT+11 
/XSQT 


PAGE 1 
+ FIXED POINT MATH - 16 BIT, MUL/DIV 
x XMUL STANDARD SOFTWARE MULTIPLY © 
+ . 
* A,B>(BePARI<A 
* X¥ IS UNCHANGED 40 WORDS 
% 
— . ADD. DATA 0124025  .. ADD MCND 
- ERA © .DATA” 70134023 .— . ERA SIGN. 
“SOF ,DATA- 29124013 ADD SIGN 
SUB  .,DATA »0144007 ~ SUB CND 
_ BGN »ROF 6 RESET OF 
»STX »XMXR SAVE XR 
ei DX =. .XMUL GET ADDRASS oF CALL SEO 
2b DX 2 AL. GET ADDR OF. _MEND > 
»STX »MCND AND SAVE 
te BOX KAS. : SET BIT COUNT . 
RPT @ LERL +31. A SIGN> LSB OF MPLR 
+ »ADD »XSIG SET OF IF LSB>t 
op LERE od. — ALIGN PARTIAL PRODUCT 
“ys XOF »ADD - ADD MCND IF LSB>1 
»L ASR 4 AND SHIFT RIGHT 
oXOF ERA INVERT SIGN IF OF 
»DXR rm COUNT BITS DDEVELOPED 
eJXZ HHA ~ JMP IF DONE 
» UMP | »RPT ELSE REPEAT 
»LLRL »NBIT | A SIGN>MPLR SIGN 
»XAN » SOF SET OF IF NEG MPLR 
— yLLRE = oNBIT. . .. RESET PRODUCT 
oy XOF »SUB ~~ SUB MCND IF NEG MPLR 
y INR ~,XMUL - SET RETURN 
»>LDX »XMXR REST@ARE XR 
» IMP # XMUL . A,B>ReM<A 
XMUL RES af ENTRY 
»JMP »BGN 
XMXR  ,BSS st TEMPBRARY STORAGE 
MCND .8SS ra | 
XSTG  ,NDATA »9i9anag CONSTANTS 
K15 »MATA 215 
MARE ; 


»END ‘ 
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* FIXED POINT MATH © 16 BIT, MUL/DLV. 

» XBT)’. | ss F TXED POINT INTEGER BIN TH DEC CUNVERSIAN 
* ; a ey ‘ 2 eS _ ~ 

X 


BTD ,ENTR ’ 
SEA a Bo 
gJAP gp HH4 — JUMP TF POSITIVE 
GRA eg Mee OPS - ELSE COMPLEMTNT 
LAR ; ee de AND ADD @NE 
PDA. gets 2 — ENITIALIZE COUNT 
a STB. oe #416 SAVE BIN VALUE  — _. Se ae es 
ob DB tel ss Mees GET PREVI@US DIGITS. : 
“ @LbSk 44. 7 ATTACH DIGIT T@ RESULT 
XZ ee UMP OTE COMPLETE 
Bere AR Ge? sen ee _ ELSE COUNT DIGITS 
.s3TB y%eid ~ SAVE DIGITS ASSEMBLED 
»LDB = ,#4+9 GET BIN VALUE 
MP BRD eet edonsest cee aston 
LDA Rta REST@RE AR 
eh DX etd | CRESTARE XR, 
. »JMP# ,XBTD RETURN 
B- DATA »9,0,0,0 TEMP ST@RAGE 
BB DATA gid CANSTANT 
oy MARE a 
sEND , 


Seep. 


13 


NTR. »&NTR 


BLO 


AA 


2STA 
»3TX 
»TA8 
Ok 
»TZA 


»L URL 
»STR 
»bDB 


MUL 


,OXR 


.1STR 


»LDR 
» IMP 
»LDA 
+L DX 


a JMPe 
»DATA 


DATA 
MORE 
»END 


rAA 
sAA+1 


2 

3 
ae 
sAA+S 
»AA+2 


B10. 
yp a7 
eel | 
ep RHA 


»%#o9 
2# +5. 


245 : o 


,10 
’ 0 20 5] 0 ’ 0 


3 


2 


oe eC 


16 BIT, MUL/DIV, 


FIXED POINT INTEGER DEC T# BIN CONVERSION. 


INITIALIZE COUNT 


_GET NEXT DIGIT 


“JUMP IF COMPLETE 
ELSE COUNT DIGITS | 
SAVE PARTIAL PRODUCT 
GET REMAINING DIGITS 


RESTORE AR 
RESTORE XR 
RETURN 
CONSTANT 2 
TEMP ST@RAGE 


v 
> 
G 


a ee ee ee ee ee ee 


3F 14 
FIXED PAINT MATH 16 BIT, MUL/DIV 
XDIV | SOFTWARE DIVIDE 
A,B/MB [QU@TIENT] < A CREMINDER] 
A REG MEM@RY X IS UNCHANGED © 
QUOTIENT IS ALWAYS TRUE 
REMAINDER IS SIGN @F DIVIDEND {UNLESS R>0) 
gp STX »XR - SAVE XR 
i »DECR 44. | SET SIGN INDICATOR 
»JAP =, PBSU. SET DIVIDEND P@S 
»CPX ; | SET DSIN>NEG 7 
»CPB ; . L@ @RDER TWa,S COMPL 
»LRLB ot STGN>n. 
»LSRB a4 : 
BORA Gee. HI] @RDER TWH,S COMPL 
» JBZ #44 . 
» JMP > 
a TAR ear 7 , , 
PASU ,STX »DSIN | SAVE DIVDN SIGN 
4STA »OVON SAVE DIVDN 
»LDX »XDIV GET ADDR @F CALL SEQ 
sk DX sOs4 GET ADDR @F PARAM 
»LDA 0,1 GET DIVIS@R 
LEX »DSIN: 7 . GET DIVDN SIGN 
» JAP #45 SET DIVIS@R P@S 
,CPX , ' SET QUATIENT SIGN 
PeCra, 7 . : ; TWO,5 COMPL 
.. «BTA «A DVSR — SAVE DIVISA@R 
»LDA »DVON GET DIVDN . 
»STX »QSIN SAVE QU@T SIGN 
LOX K14 | SET CYCLE C@UNT 
»LRLB <4 7 ADJUST L@ @RDER [DELETE SIGN} 
Sus »DVSR SUR DIVS@R . 
.SaF ; - 
» JAP »XERR JMP JF @VERFLOW ERRGR 
AR F 
NEG ,LLAL 4 DEVELWYP 14 QU@TIENT BITS 


any c VSR [NAN REST@RING ALG@RI THM) 


ADJ. 


XERR 4 


XBLV. 


K14 
XR 

DVSR 

DVDN 


DSIN- 
QSIN. 


roe 


JMP IF. COMPLETE 


COUNT BITS. 


JUMP TF NEG REMAINDER 


SHIFT QU@TOREM 
SUBTRACT DIVSR 


G@ TEST 


GET LAST QU@TIENT BIT 
JMP IF @R 


ELSE SET LOB. 


REST@RE REMAINDER 
GET TRUE QU@TIENT 
JMP IF NEGATIVE QUa@T 


ELSE SET POSITIVE 


GET TRUE REMAINDER 
JMP IF REMAINDER NEG 
ELSE LEAVE P@S 
SET RETURN 

A,BOMe B>QU@T A>REM 
ENTRY 


TEMP ST@RAGE 


°o 


ae 


14 


FIXED POINT MATH 16 BIT, MUL/DIV- 


XDAD gh FIXED P@INT D@UBLE PRECISIAN ADD/SUBTRACT 
cok »>XDAD+3 “SAVE XR 
RGF oo, . RESET GF | 
»LDX ge DAD. >. ee ee : 
»LDX 60.1 XR>ADDR OF HI B | 
aSTA a XDADS4: 0) SAVE MICA use 3 
» TBA. Fas’ GET L@ A: 
~ £ADD.«* stot i ADD L@ 8B . 
yANAT 2977777 MASK SIGN. 
TAB ’ ~. SAVE RESULT 
~TZA ; * 
J PADEA GET CARRY 
»ROF ‘. 3 RESET OF 
» ADD »>XDAD+4 ADD HI A 
vADD 4 O41 ADD HT BO 
»INR. . ,XDAD SET RETURN 
»LDX | »XDAD+3 REST@RE XR 
MMP RETURN, 
XDAD ,EQU © 2eel ENTRY 
» JMP »#-19 
—4DATA Paar | TEMP ST@RAGE 
»M@RE s. : . ae 
a END. ‘ 


. e | oo ‘ 7 - of 
PAGE = 17 oe | | 
; FIXED POINT MATH 16 BIT, MUL/DIV. | 
e KDCO FIXED POINT DOUBLE PRECISI@N COMPLEMENT 
: = & . 


nce ,ENTR : 
9CPA 
-,yJBZ 2 #48 
MOPBY » “53% 
cS 1: | ee re . | Dane 4 | | 
“"AEREB a4 : ee es | : 
~ gL SRB ee - 
— sdMPe 4 XDCB 


; wTAR-, 
| ,JMP® =, XDC@ 


»END 
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FIXED POINT MATH — 16 BIT. MUL/DIV 


% 
% 
*# XDMU - | | FIXED P@INT D@UBLE PRECISION. MULTIPLY 
* 
BXDM ,STX »XDMU+4 | 7 SAVE XR 
RAF - ; : RESET OF 
» COMP 14 . INITIALIZE PRODUCT SIGN” 
» JAP. i — JUMP ITF A PBS | 
Re a > ELSE SET PR@D SIGN 
- sCALL °° .XDCO™ | GET ABS VALUE 
4 JAN +XDMU=3 | - JUMP IF 4,000, .. 
STA — sXDMU+6 SAVE HI A 
»STB »XDMU+5 | SAVE L@ A 
»STX = sXDMU+7_ SAVE PR@D SIGN 
ce eb DX la XDMU GET ADDR OF HI BC 
“> EDX »0,4 Cs | 
»LDA- Oot GET HI]. B 
LL DB i ee GET L@ B 
yLDXk | XDMU+7 - - GET PROD SIGN 
»JAP 135, #47 JUMP IF B P@S- 
ae TXR. a he ELSE SET PRBOD SIGN 
»CALL ,XDC@ GET ABS VALUE ~ 
» JAN »XDMU-3 3 JUMP IF 4, 000... 
—4STA »XDMU+7 SAVE HI B 
»LDA »XDMU+#3  - +=SET T@ RBUND 
»MUL »XDMU+6 . 
»LDB .. ,XDMU+7 
»sMUL = XDMU+6 
»STB »>XDMU+6 
»LDB »XDMU+5 
STA »XDMU+5 ° 
,LDA = 4XDMUs3 
oo MUL »XDMU+7 
TAB ; SET T@ ADD 
BELA 22% . T® PARTIAL PROD 
ZOALL »XDAD © |. ADD PARTIAL PR@D 
'PZE »XDMU+5 | . : 
»JXZ™ »XDC@ — C@MPLEMENT IF PR@D NEG 
» TNR »XDMU ) SET RETURN 
Paae ae: »XDMU+4 | RESTORE XR 
, IMP a 


sto] 


*° | e | . ar - ; 


-,RXDM 
,040000 


9020,50+0° 


MORE 


val 


FIXED POINT MATH - 


XDSU- 


»STX 
»L DX 
»LDX 


STA 


» TBA 


»ORAI 


»SUB 


ANAT 


» TAB 


TLA 
_ RGF 

9 ADD 
—,SUB 


» INR 


EDX 


» JMP 
» ORG 
»ENTR 


;IMP 


»DATA 


»END 


»XDSU+3 
»XDSU 
OE 
»XDSU+4 


,o100000 


odd 


,077777 


i= 


s 


»XDSU+4. 


Oa 4 


»XDSU 


»XDSU+3 


Pat) 
p%ot 


. 4g He2t 


2950 


* 


16 BIT, MUL/DIV 


FIXED POINT DOU8LE PRECISION SUBTRACT 


SAVE XR > 
RESET OF 


XR-ADDR OF HI B 
SAVE HI-A | 


SET SIGN FOR CARRY 
SUB L@ B 

MASK SIGN 

SAVE RESULT 


GET CARRY 


RESET OF 
ADD HI A 
SUB HI B 
SET RETURN 
RESTORE XR 
RETURN 


ENTRY 


TEMP ST@RAGE 


peemee, 


+ 
% 

*# XDDI 
% 


BxXDN 


a1 


»STX 
» SOF 
»STA 
»STB 
»LDX. 


 LDX 


»LDA 
LNB 
» TNR 
» COMP 


wu STK | 


»JTF 
] JAP 
»INR 


Catt 


» JAN 
»LRLA 
sLLRL 
» 1 XR 
» JAN 


»JMP 


»LLSR 
»LSRB 
»STA 
»STB 


y»L DA 


»LDR 
» JAP 
» TNR 


OA 


» JAN 
»>LRLR 
eLORL 
»JIXZ 
»JAN 
s1)XR 
» IMP 


2 RAF 


FIXED POINT MATH 


— yXDDI+3 


XDDI4+4 — 
»XDDI+5 


»XDDI 
»Oel 
»>Os1 


etal 


»XDDI 
24 


—XDDI+8 
2030,XDDIle2 


»#+7 


»XDDI+8 


—,XDCa 


»>XDDI-2 
1. 


24 

ot 

p+] 
»XDD 1-2? 


s#<6 


2 


io} 


16 BIT, MULZDIV 


_ FIXED P@INT D@UBLE PRECISI@N 


SAVE XR . et 5 
PRESET ERR@R IND 
SAVE HI A. is 
SAVE L@ A 


GET ADDR OF B 


GET HI B 
GET L@ B 
SET FOR RETURN 


XRo-4 
INITIALIZE Q SIGN IND 


JUMP IF ZER® DIVISOR 
JUMP IF B POS 

ELSE SET IND 

GET ABS VALUE | 
JUMP IF 14.000... 


“JOIN HI B,L@ B 


NORMALIZE HI B,L@ B 
COUNT SHIFTS 

JUMP IF NORMALIZED 
ELSE LOGP 

ADJUST 

FIX L@ B 

SAVE HI B 


AND L@ B 


GET HI A 


- AND LO A 


JUMP TF A POS 

FLSE SET IND 

GET ARS VALUE 

JUMP TF 4,000.., 

J@IN HIT A,L@ A 

N@RMALIZE HI AL@ A 

JUMP IF N@RMALIZED T@ B 
JUMP IF a GREATER THAN B 
COUNT SHIFTS 


AND LaaP 


RESET MVEL IF A LESS THAN B 


PAGE 


a 1 ae 


22 


~ yLLSR- 
»LSRB_ 
rv 
STB 
OTA 
fT ZA. 
MUL 


| ORG 
LENTR 


4 


oi 


» XDD +6 


“sXDDI+6. 


—  XDDI+4 - 
+ XADT4+5 


»XDDI+7— 
—XDDI+6 : 
ve eXMBDY 6? oo 


aXDD E45 


“| XDDI+6 
. »>XDDI+4 


+XDSU 


“XDDIe6. 


»XDDI +8 
»XDCB 


| ~XDDT +3 


»0 


wet 


»AXDD 


20,0,0 | 
—60,0,0 


ADJUST 

FIX LOA 

SAVE HI A/HI B 
SAVE LOA 


SAVE Lo @RDER CORRECTION. | 
| Ger LBA. 


SET HI @RDER CORRECTION > a 


GET HI A/HI B 


_ SUBTRACT... 


CCHT A/HI B)*LOB)/HI B 
GET Q SIGN IND © 


‘COPLEMENT IF Q NEG 
REST@RE XR 


RETURN 


TEMP STORAGE 


t 


"FLOATING POINT MATH 16 BIT, 


THIS Is A COPYRIGHTED PROGRAM, COPYRIGHT 1968 BY. 


MUL/DIV 


Xan DATA MACHINES | 


92K0506-005 A 


_ SHE - re a COMPUTES Teed “CFIXD PT, N@S.) 


S 


»DATA »SHE+7 
ae oes Py wen Se ee me 


MODIFIED 


TEMP, ST@RAGE 


EXPONENTIATION SUBROUTINE 


Ee - ace woe 
Fae oe nN eee Ne re ee 
eens oe a ein ne lat sees, ob tenn 
a ant Serle neat 
safe a ewe 


fe cae eae tear pe energy 


) aa BA ‘TING POINT MATH 16 BIT, MUL/DIV 


($PEL oe COMPUTES amet FL. PT, I FIXED PT, 


| »STX 2»FPE+7 

Pc EDX SP ES4 es oe 
Ree ag : A »$PE+9 

E »$PE+10 te deh. 

| a P01 ve, Bo PAR gd oe eat oe es Pn eee 
D »GPE+7 | 

i -.4$0S - 

| _»DATA .GPE+7 eae 

| THis ae | ~ 

! _A®*B SUBROUTINE _ : i ie oad piel Mee ee 


[ao & nt ATA > pCO 0N0 


, 
h 
= 


BGQE 


3 


“FLOATING POINT MATH 46 BIT, MUL/DIV. 


»STB. ,$QE+9 * 


“a GALL” ~ ,AL@G, ($0E+8) 
sSTK 4 SQE+7 . 


oe SOR 419 
6 LDX. »FQE+4 

4S TX 4g #43 : 

~, JMPM 2 $QM 


DATA Ber) 


 BalOG A 


» JOF gett 


STAs $OE+8 | 


»STB , $QE+9 


sCALL EXP, ($0648) 
SOF a C44) . 
SMP . » (#44) 


~AtB=0 ERRGR 


,ZERD =. 03 
: SET OFL® F/F 


SOF ‘ 


~,LDX  — -, $QE+#7 


»CALL ~~ -y$SE,1,.0 


oo JMP © 4 BGQE | 


SDATA. = 05000 
»MBARE , 2 . 


COMPUTES A®*B8 FLOATING PT, NOS, 


O 


ae 


SOE, 


AGE 4 


x * & 


j 
; 
i 
{ 
i 
i 


LEQU. 
TENTR 
CALL 
STK 


a LDXE 


» JAP 
+ T2B 
ot a LDAL 

CALL 


on FLOATING POINT MATH: 


ar he ee ee 


> : 
»-$SE,1,0 
»>LAG+3 


~  CALIG+4_ 
O14 


“EXT=3- 
,030,EXT 


a BFMS 


“sEOG+10 -~ 


ot 


LOG+4 


»LAG+5 
»XDAD 


»(LOG412)— 


»LAG+6 
»L6G+7 

’ LOG+4 
»LAG+5 
»XDSU 
»(LAG+12) 
»XDDI 
»(LAG+46) 
»LAG+4 
»LOG+7 
»XDMU 


»CLBG4+6) 


MAX, 


16 BIT, 


MUL/BIV 


COMPUTES NATURAL Loc OF A FLOATING 


; ERROR EXIT Ws ‘AsB=0 IF ARG, 
FLIP/FLOP SET, 


ADD SQRT 2 


F+ SORT 2. 


SUR SORT ? 
CAMPUTE x 


SAVE X 


MAX, 


ERROR FLAG 


ERROR ROUTINE 


NEGATIVE 


POINT NUMBER IN A,B REGISTERS 


NEGATIVE OF LO 


“VE RESULT TF ARGSO,- 


yp TXA 


MATA 


a Lk 


,»JMPM 
~—sDATA © 


,LaG4+8 
»L@G+9 
»LOG+14 


»LOG+19 


_. sLOG+2n 


X"X 


% 6 : 


C SUB 9 DOUBLE PRECISION 


C SUB 9 


eS ee oe 


_ 2 #410 


 ,LOG415 


ead 
» XDMU 
» (LOG+8) 


_a XDMU 
“4 (LOG+6) 
»L9G4+16 

A SNML 
»LOG+11 
»(LOG+33) 
»L@G+5 
»LOG+10 
»sNBIT=<9 
»L@G4+17— 
»$QS 
+ (L8G+6) 
» SOK 
, (LEG+4) 
»$QM 
»(LAG+31) 
1 AG+S 


IS IT END 


EXIT 


SET BY PROGRAM 


B2. SCALE 
2 aT B? 


Ko 
1/2 AT B2 


EXP 0202 
CPA 

TEMP L@G F 
LOG F 
CHARAC, 


FA=RBASE 0209 
RAR 4 


FL. ADD 


FL, MULTIPLY 
LOG 2 RASE E 


COMPUTE L@G OF F =(((O9K#X9C7 )X#X4C5) KaXSC3_ 


,040400 — BASE. CHARAC+2 

5026501. 01.32404755576 SQRT 2 DBL PREC 
A 017333 (L0Ge18), (LOG+28) oS 
ATA, 010000. . 1/2 AT SCALE 82 FROM LEFT. 
ont ,0200 .. BASE CHARACT, AT B15 | 
* DOUBLE PRECISION COEFF. C9 THRU CT 
+ DATA 1 04152143,07361,0145516,023123 

A” ,0133042,010010,0102343, 066136 - 

9 0107253,042327 ar ar 
~2.04.00000.077777,040900. MAX-FLPT NEG.N@J,2 AT B2 
,040130,056205 FL.PT, L@G2 BASE E 0.542710277 © 


eG END 
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Me eit & ee ee 


Ka XK eS 
,EXX 

Oat 

soda 


| 
| 


#+4 

cial Cpe ctaae pent 
»EXX44 | 
Lt EXK 45 

4 $QL 


a eett 
1#+5 
(903 
gs EXPE 
»EXX4+29 
—yEXK 430 
EXE 
yy EXX 44 
sEXX45 
9 SOL 


2% +6 


EXX +20 

» (EXPT) 
yp BR XKX 44 
sPXX45 

» SQM 

a CEXKX 4274) 
2eXX47 


2 (EXX+25) 


A CEXX 427) 


(0: 


FLOATING POINT MATH 16 BIT, MUL/DIV | 
COMPUTES E#* X, ARG, X A FLOATING PT, 


CONSTANT IN A,B REG, N@ ERROR EXITS, 
RESULT CLAMPED AT 0,AND MAX ALLOWABLE N@.IN 


FLOATING PT, 


RESET FLAG. 
IS ARG POSITIVE 


NO. COMPLEMENT 


SET FLAG. 


FLOATING PT SUBTRACT, 


1S X GREATER THAN 127*L0G2 
YES, IS X POSITIVE 
NO. A=B=0 


EXIT 


EXIT. . 


CONTINUE 


MULTIPLY BY 


EXTRACT CHARACTERISTIC 


PAGE. B 


»EXX+8 
1EXX+6 


— BXX4140 


4g HHH 


YS EXX442 — 
ot? 2 ee 


»EXX+4 


’ e447 | 


2 EXX+4 


sEXX+15  ° © 


#49 


sPXX+15 
9 #45 


SAVE MS PART @F. MANTISSA 


1S EXPONENT POSITIVE 


ASRA, EXTRACT INTEGER ! 


N@ INTEGER, PURE FRACTION 


LASL @R LASR INSTR, GET F SCALED BO 


F LESS THAN ,5 @R = 
EQUAL | 


-F LESS THAN 172 


i : ke. 
oh Anan hl ann Ee 


»>DECKR 


yLRLR 


fielorth 
» JAN 
2 XR 


UMP 


ee 


pee: 


ae 
,TXA 
yA > bow 


. hm, 


SCALE AT Be de 
FIXD PT. 


CONVERT F2#L9G 2 TO FLOATING PT 
F2 * L@G 2 LESS THAN 0,2 @CTAL 
a4 TO .X REG 


SHIFT TS SIGN 
NARMAL IZED EXIT 


Leap 


DOUBLE PRECISION MULTIPLY. 


, ADD © »EXX49 
»ADD sg EXX 416 
»LDX > EXX47.— 
yg IXZ 2 #43 


»STA —  EXX4#16— 


ne »STB ‘yy EXX4+17 « 2 ge ; . 
my, : COMPUTE -E ##(F2 # L@G2) = | 2 9ee S Ses 
CORE 444,999994900468F I /( (FHF 811,999—)26#F) 
eS SLDX = EXX 44 on os coals 7 tags: 
,JMPM =, SQM ss FLAT, MULTIPLY 
= Moore _aPZE.” CEXX+16). 00 = 


a OS »STA . EXX #4 
- LTS og STB. 4 EXK 45 m 
MPM SOK © FLOAT. ADD 
»PZE »(EXX418) 2 | 
2STA sEXX 44 , 
STB EXX4+5 
LDA ,EXX4+16 
2g 2" ee LDR »EXX4+147 
ieee Benes | ae IMP M »$QM_ 6#F 
| ,PZE »CEXK4+34) | 
—4STA 4 EXX 416 
STR 4 EXX+#17 i 3 
»CPA ee _— C@OMPL., 


ae OO ee MEME og ROK 2: EL ADD 
biihe nla tke” Shea BP LES, wCEXK $4) 


% 7s GENERATE G ADDRESS. 
7 »TXA. ; 
2 ASLA ot. 
»ADN 5EXX+39 
,StaA. ,e+t-4 ; 
* CONTINUE COMP OF  ExeF 


gree 2 »(EXX+4+16) Ss ee 
» IMP wi , SON “Fee DVO 
,e fe ,CEXX4# 33). | 
MB OM | Ge ER RF 


© 


+0 ADDRESS STORED. BY PROGRAM 


aSSE,160° ~ 
4EXPS | 
SWEAR eA. a 
ee: : 
4077600,040000,NBIT=1 


OU gue ac. * Fa Eh ol oes 
2040000,020000 © 455,25 AT BO. 


~ 2 


—-6040334,025216,054271 02776 
2041730,01715,.036535,.003635 
~  5077777,077777,040740.0 | 
6940353,050500,040314,06775 
» (EXX+35) 


eed 


F 4 


PAGE 12— yeaa We ee a ae : oe 


(TTT NTT oO FL@ATING POINT MATH 16 BIT, MUL/DIV : 
po eggs ‘COMPUTES COSINE @F FLOATING PT. (RADIANS) | 


cas ,ENTR ; | 

ere PS 9 oe »$SE,1;0 

yl DA sCTMP2 

,4LDB sCTMP wt 
oe +» JMP™M 4 SOL 

DATA 4 (08S +4) 8 
- 4ST& 2-4 CTMP 
,8TB ., CTMP +414 
eM PM OS es.IN: 
DATA =, (CTMP) 
4 JMP® — 4COS : | os | 
Je a DATA 2040344, 041767. PI2 Els POINT 
be OTMP.. DATA ©. 010 | : on 
| MORE 4 | 
__. s END ‘e 


FLOATING POINT pire aera ve 


COMPUTES. SINE OF FLOATING ‘Pq. CRAD TANS? 


Oe ke eH 
ie 8) 
ponent 
a. 


IN »ENTR eee ENTER 
»C ALL »$SE,1,.0 
»STX i ae 
a2 2 LOXT aC SIN#4) | s 
»LDX foe O41 
wee LDA 1Oe4 
: _sLDB sitet 
»JTF .030, (EXTe4) . ; 
» JMPM »$QM FL. MPY BY 2/PY 
_ eS »DATA : Al ¥ #6). . Seow oe 
»TZX ' 
» JAP » #+4 
on 2CPA en 
2 TXR ’ by FLAG F@R NERETINE ARG, 
»>STX a ¥e5 - _ SAVE SIGN 
CALL 4 SFMS 
»STA Vet. 
4 TXA ' 
_ + SUB al XB SASE 0290 BB 
9 JAP 1 #45 
CPA ' 
, TAR ® 
s [XR # 
2zASRA »NRIT=+9 —— 
~, SUR aYett 22,26 SZ MANT. 
JAP EXT A=B=0 SINE= 
eADD »¥et1 
¢ IRZ 9#+8 
p7RA +Y¥+9 LASR 7 
sot A +#4+2 p 
»LOA Yet ARG A 
»P TE ras LASR a 
» IMP »(Z4+1) 
Pgs ees es 


i 

i 

i 

if 

ft. ¥ 

ine 

ies 

\; 

fos 

{ ues a 
|. 

} 

i 

\ — 
i * 


#46 


,¥et. 


eae. 


Heid 


9 +40 


“gt? 


»Y¥+t 


ae 
a V45 


Pa 


ay 


#44 


(Yat2 | 
Be oh o> eee eee 


rt 


, #44 


ete 
2Z2+4 
aYet. 


ee VoL 
a V+2 


»XDMU 
»CY+*#t1) 
2V¥r3 
»V+4 


4 ¥427 
> a 


ey th 
oY¥+16 
Yet 
pee 3 


g 


4g HTN 
a ¥+28 : 
CRAY 


LY4t3 
marl 


AO 


-LASL 

- SIGN @F ARG 
100000 
COMPUTE SIVE(A) 


COMUTE SINECPI/2=A) | 


A (FOR EXP=0 PATH) 


en 
XX : 


COMPUTE X*#2 DOUBL PRECISION. 


. C14) X#X4C9)X#X4C7)X#X4CS ETC, 
~C SUB 11 D@UBL PRECISION — 


SAVE PARTIAL ANSW, 


EXIT 


RESTAGRE PARTIAL ANSWER © 


PAGE §=15 
SDATA  4CY4#3)  - X##? 
»JMPM =, XDAD aan 
RD ATA De MODIFIED 

» JMP , (#=15) Back TO LOOP 
LDA Y4t3 | 

“pL ASR "ete SCALE B1 
»ADD ,Y¥+8 1 AT B1(=040000) 


4, JMPM — XDMU 
DATA a C¥# 4) 


~sSTX = ,¥413 SAVE SIGN 
ZS STF »930,#+9 
—limpm  SSNML)~«~=S«G@sOT@ NORMALIZE ROUTINE, 
ADD ge 414 EXP1 0204 AT BS : 
GED KS aes 2¥45 Be eh . 
2 —eJXZ og CH4HBD- © OTS RESULT POSITIVE 
ig CPA woe ~ . NO, COMPLEMENT 
»LDX ay _ 
MP SIN EXIT 
EXI »ZERY 203 ~—| | AsB=0 
: »LDX sg Y. Jt Sy 2. 
hi nea NPS SING 2 EXET. , © | _ 
ao, ke Ye, »BSS | »5.. et es ee ae 
Po eget DATA Ores 066 F445 OE 1 41,040000 ig 
- ow shASR 40: 
2L ASL e , 
»DATA 022 og MAX BITS OF MANT, 


DATA  ,N410N0N00 SIGN BIT 
»DATA .9,040200 TEMP,EXPONENT 14 ee 
ee a | DBL PREC. COEFF Cii THRU C1. 
as ATE »0177777.079652.05,017774 a i SV Soe 
»DATA. - ,9177546,045735,05063,027360 
4 DATA »01426521,03071,044417,066521 
DATA »C¥+15),07+26) 
MARE, | : 


| 4 ot. 
| PAGE 16 
| * FLOATING POINT MATH 16 BIT, MUL/DIV 
* * 
: *  ATAN COMPUTES ARCTANGENT BF FLOATING PT, 
% a 
| ATAN ,ENTR 
| CALL , $SE,100 
/- RGIN ,STX STT: 
| SLDXE | (BG IN- 1) 
Pe re elie ON oe ee 
| LDA 4 OaE 
»LDB tat Ee e: 
hed tases »INCR 404 ONE TO XR 
: »STA »STT +1 SAVE A 
2 »STB sSTT+2 SAVE AA 
Pei le eM | BOM, JN@N FLOMPY 
| »DATA = (STT#1) : | 
| STA STT#3 N#"2 
| aes _ STB sSTT+4_ N##2- 
| »LDA »STT +t , 
\y »LDB ,STT+2 
I AP 4 
| »CPA ea | 
»DXR ee FLAG FOR =VE 
te dt ina »STA  s TEMP+2 00 SAVE ABS N 
» JMPM » SOL >» FL SUB . | 
| »DATA =, CSTT+5) “Loee=32,0004064115645° 
| » JAP yp C#+7) 
| »LDB  . , STT+#2 
»LDX © ,STT ae 
»JMP® =, ATAN EXIT 
»sLDA  , TEMP +2. ABS.N 
»LDB sSTT+2 NN 
»>JMPM SQL FL.SUB 
»NATA ,(STT+7) TAN PI/2420.10331720371 
ieer »TEMP+2 ARS, N 
»JMPM SAL . FL SUB: 
OAT »(STT+9) 10 | 
JAN Po) ae 8 
»LDA » TEMP +2 ABS, N 


NO, 


» JMPM 


» JMPM 
DATA 
_»JdMPM 
»DATA 
» JMPM 
»DATA 
» JMPM 
»DATA 


tL DX 


» IMP 


LAX 


a DATA 


»STT+2 NN 
»SQL FL SUB 7 
»(STT+141) 10%#*820575,360,400 
»(#+9) "ss 

— 4STT4+13°.. PIS2 
sSTT+14 PI/? 
»(STT+41) CPA IF Xref 
5ST a: 
»CATAN) EXIT Sey pies 
7 CONTD FRACT, 2. 
»(CFEV) | ; 
»(STT+25) ADDR OF 1ST CORFF 
FQN FL DIV (N) © 
»(STT+1) a 

_ sSTT. _ RESTORE XR & 
»$QK,(STT+13) 
»CATAN) = - EXIT | 
oe CONTD FRACTION 1 
»(CFEV) EVALUATE CONTD FRAC, 
»(STT415) ADDR OF 14ST COEFF 
» SOM FL MULTIPLY (N) 
»(STT+1) N . 
»STT ss REST@RE XR 
»CATAN) | EXIT 


POLYNGMIAL - C3)N#N*C2)N#N+C1)N 


a STT +39 CS 


»>STT+40 C3 

» QM - FL MUL 

2CSTT+#3) — Nw#2 

»8QK © -. ADD 

»(STT4#37) C2. 

»FQOM MUL 

»(STT+3) Nee D 

» 0K - ADD 

»(STT+35) Gt 

»$QM MUL 

»(STT4+14) N 

»STT REST@RE XR 

2 CATAN) EXIT 
- EVALUATION OF CONTD FRACTION 


VCP EY REP. 


pe. 


i f 
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- 4 LDX Ogee ADDRESS OF ORIGIN OF TABLE @F CONSTS., 
»LDB 9954 
»>UMPM  =,QK ~ ADD 
»DATA ~,(STT+3) , N##2 
—,STA > ,TEMP = SAVE 5% 
eee, »STB. ,TEMP+1 SAVE Lene & : 
LDA 651 3 | : 
en ee) eee 2 er 
»JMPM ,$QN | DIVIDE | 
»DATA ©, (TEMP) 
et _ sSTA -, TEMP 
»STB. ; »>TEMP 41 
a »LDA: »4et 
‘ eo ab DB 5 aSet | ; 
» JMPM SOK ADD 
»DATA  ,¢€ TEMP) 
_»JMPM 4 $QK ADD 
»DATA »(STT#3) Neo 
sSTA TEMP 
ere 1 STB yp TEMP et 
»LDA goad 
DB Set 7 | 
aie _ sJMPM 4s SQN owe DWD 
»sDATA  , (TEMP) | 
a STX: gp ad oe 
a JMPM SOK ADD 
DATA = 0 | ADDRESS ST@RED BY PRGRM, 
» TNR CFEV | 
Pre: IMP # »(CFEV) 
CFEV. ,ENTR : i 
nag eee MP » (CFR) 
TEMP ,BSS asd 
-STT . ,8SS 5 : 
+ i ae : CONST. FOR 16 RIT WORD 
DATA »035701,042233,037503,031720 10#%-3,TAN P]/24.. 
,DATA »040300,0.2946737,027410 (1,0,104#8 
3 »DATA —-, 040344,041767 PI/2 : eae 
* oe CONSTANTS F@R CONT, FRACT, NO 1 FL,PT, 
DATA .037572,021600 2388229612 
DATA 6040516,014 7617 | | ' 2,445205396 
,UATA 


»940576.9014262 8943529798 


rs 
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,04137453,011150 _ 0 £314747223- 


040363, 05502. ? 1.798249626 
CONSTANTS. FOR cONTD. FRACT.NO,2. FL.PT. 
5040477,077774 | | 9999992083 
,0140052,024446 3332870775 
4040114,047565  ,5985998078 
.0140476,04640 ~~ - | = 0635500089 
1037745,0415371 | seg (3953544718 
 Q@EFF, FOR POLYNOMIAL. ©. 
0401775 077777 | : = 9999999207 
.0140052,024566 -_ ~ 3332966338. 


,037544,016021 —o 1957408066 
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Sart 


EVEN OC sr3 


FLOATING POINT MATH “46 BIT, MUL/DIV- 


ae COMPUTES SQUARE. ROGT OF A FLOATING: POINT 


,$SE.1,0— 
eens SOT. Mis Salt hou 
“) CSQRT#4) | 


1O+4 


8 Oot 
st et 


1 SQTs3_ 


1030,SQT#3 


SOT et 
»SOT+10 


1SQT+3 


»NBIT<8 
»SQT+1 


oe 


»SOT+12 


»SQT +1 


»9QT+2 


» (EVEN) 


er | 


»SQT+4 
»SOT+4 


N@. IN A,B REGISTERS, @VERFL@W FLEP/ELOP 
SET IF ARGUMENT. IS Mees : 


ENTER. 


SAVE AR 


EXTRACT CHARACTERISTIC 


~ SAVE © 


1S EXPONENT ODD 
IF YES IXR 


‘EXTRACT MANTISSA 


LASL’4 IF EVEN EXPONENT 
-M/2 AT BO 
M/2 AT BO 


DDD EXPON, COMPUTE M#,7+,22 
JMP IF EXP, IS EVEN 


TEMP 


9.22. X SUB I AT BO RESULT 


EVEN PATH.X SUB I= Mao lagen, 34 


(6 


PAGE 


6922000, 034000, 077600 


24 | 
25TB 25QT +4 
» ADD »SQT+4 
-,ADD  —, SQT #9 
»STA »SQT+5 
»ASRA > 4 
_. 9 STA »SOT+4 
»LDA r SOT+1 
»TZB ‘.. 
_.»DIV  sSQT+5 
»TBA o. 
» ADD »SQT+4 
oa STA a SQT4+5 
: “LDA »SQT+1. 
~~ -yLDB 2SQT4+2 | 
CALL _aXDDI 
,DATA  ,(SQT+5) 
»LRLB oi 
ADD 4 S8QT45 
~o LLSR 9 
eLSRB ht 
»STA »SQT+1 
»LDA »SOT+3 
eo »LSRA .NBIT#9 | 
7» TAR sa 
» ASRA et 
»ADD ==, SQT#7 
»ASLA »NBIT=-9 |. 
® Q R A 5 S Q T +1 
ae LX »SQT 
: » UMP # »SQRT 
SQT »BSS 6 
»DATA 2950100. 
»DATA 
2 1XR ’ 
»L ASL ot 
9 M A R ad ? 
» END ' 


” 


0.34 AT BO. 
X SUB I AT BO 7 
X SUB I#(41/2) AT BO. 


4/2(X SUB I) AT BO 


M/2 BO 


XAT BO 


X/2 AT BO 

XSUBC L414) AT BO 
M/2 

MM/2 


1/2 (M/XSUBCI41)) BO. 


X SUB (1+4) AT BO.4/2 X AT Bet 


P@SITIGN MANTISSA 


 CHARACT. 
EXP AT B45 — 


ADD ONE ~ 


E/2 (®DD EXP +4)/2, (EVEN sERP SUE 


BASE EXP/2 AT R15 


EXP E-1 AT B8 
REST@RE XR 


EXIT 


09100=BASE EXP/2 AT B15 


CONSTANTS AT BO,MSK AT BE 
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i FLOATING POINT MATH . 16 ‘BIT, MUL/DIV 


SQM 


USES FXD PT DBL PREC, MUL. AND DIVIDE 
. -XDMUo 4 XDD! SUBROUTINES ». 
DR ORREL Pee ae COMMON PATH. 
| QMBG ,STX — ,$QM+4 SAVE XR 
oe wet P 8 030: QMCP+6 RG AZO, EXIT 
fe ats ee | is aa 
[re a JAP hed sind Is IT POSITIVE 
oe CPA N@ COMPLEMENT. 
\ sEXR: aie. (Os SEF FLAGS 
| »STX =, G@QM414..— SIGN. | | 
= a s CALL a $FMS eeeigectee, oe . 
: STA 180M +s SAVE A 
: »STX ,$QM+9 ~~ SAVE CHAR 
| »LDX  ,$QM-3 | GET PAR ADDRESS 
bic ieeet BDA Se Pet oo BB oo. 
- ~ ,LDB EEE BB | 
o JEFF 4030,QMCP+7 = ARG. B20 ERROR FOR DIV ov 
a oh DX 4 SOM+44 CONTINUE SIGN 
. » JAP a He4 
»CPA ra. 
DAR ee pase es 
oT STX : 2 $OM+14 SIGN 
- J CALL »SFMS nee 
_s$Tx » $QM+10 CHAR EB 
STA »$QM47 
»STB »$QM+8 F 3 | » EY 
SOF. +, QMDV G@ TO DIVISION - . oe 
LDA »$QM+9 EA | 3 
»SUR »$QM+12 BASE CHARACT, 
»ADD »SQM+10 EB 
STA »$QM+9 EA+EB 
gt G »SQM45 ae 
JAR »$OM+6 AA 


> ; 


FLOATING. DIVIDE AND FLBATING MULTIPLY 
ENTER W/ PARAMETER IN A+B REGS AND : 
ADDRESS @F 2ND PARAMETER IN CALL. SEQUENCE. 


ERROR EXIT W/ AsBs0 AND @VERFLOW SET, 


PAGE 


Ae vametenien 6 netmnmeniey * 


- _OMCR. 


SAN 


»L DX 
» JXZ 


»LD8 


SMP M 


»PZE 
» SAF 


; r 
rae i fo 


»XDMU © 


2 ($0M47) 
4 $OM45 — 
ae 


pH420 
»$0M49 


_ QMER+4 
4 $OQM49° 
5 SQM4+5 | 


a 


»SOM+9 
2 QMER_ 

) SOM411. 
Po) 


»S$OM+4 
.$QM=7 


— ¥$0M+9— 


~~ OMER 
+ $QM49 
2 $QM 45 


7 
sQMCP 1 


1 80M49 
4 $QM410- 
~,48QM4+12 


,#412 

» $Q0M4+9 

2 $0M45 
»$Q0M+6 
»XDDI 

2 ($QM+7 ) 


3 & 


»CMN 


AD 


NORMALIZE FOR MULTIPLICATION 


FXD.PT.DOUBLE PRECISI@N MULTIPLY 
VADDRESS OR ARG B, 


SAVE RESLT TEMP 
MOVE an SIGN 


RESULTANT CHARACTERISTIC, 


oe 


GET RESULT | 
“F@RMAT FOR FLLPT, 


COMMON PATH 


Stan 


ADD CHARACTERISTIC 

IS RESULT POSITIVE (X)20 

“N@. COMPLEMENT 

RESTORE X REG. 

_ RETURN | as 

“RESULTANT CHARACTERISTIC 

SUB ONE FROM CHARA, IF MULTIPLY 


“NG TOO LOW 


SAVE RESULT. CHARACT, 


GET RESULT. 


FORMAT FOR PL, PT, 


DIVISION ONLY 


a 


EA-EB | 
BASE CHARACTERISTIC 
ERROR, RESULT LOW, 
EA-EB 


AA 
FXD POINT DOUBLE PRECISION DIVIDE 
ADDRESS OF ARG: B, 
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~- QMER, SAF 


= 


03 ~=—”:é‘« ABE 
2 QMCP4+7 . 


40124122 ADD FOMe14 


_ 28QN_ 


»SQM~-7 
» $0M44 


a SOM 96 | 


ee 


»FQM4+4 | 

2 Hes 

(2) en re 
»$SE,1,0 


aa, Boel gs et . 
»0,040000,0100000,0200 


ri FLOATING POINT MATH 16 BIT, MUL/DIV 
. ; 
_*_ . $0K oe * FLOATING POINT ADD 
+ ; = ; 
$QK  ,ENTR, 


YCALL =p $F AS 


MORE, 


att: 
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FLOATING POINT MATH 16 BITs MUL/DIV 


* 
# $QL : ee - FLOATING POINT SUBTRACT 
% : Ce. 
$ 


ore wa es 
ee » END: ' 
[ aaa 


7 2 : : 7 ‘ . ca —1@e@ : | | | 7 , fe) ( 
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ar’ — FLOATING P@INT MATH 146 BIT, MUL/DIV. 
S 2 de ; 
Let ee OS ee! FLOATING P@INT ADD/SUBTRACT 
* 
FASS ,T2ZX ‘ - . SET FLAG 
, LDA 2tFAS+4 . fi 
2 re) \ re Sy | pose |e) 
CPA ee COMP AND 
is a 2 DR ae a Br + wo eas Bt ee ee te, Bee a oleae So Ae. z 
| 4S TX »$FAS+8. TEMP FLAG 4 
~,CALL »,$FS™ | : nae 
oe STA SFAS+4— A (MS: MANT) 
»STX »SFAS+#11 EXP (EA) 
9 STB “+ SFAS+6 AA (LS MANT) | 
_ ek DX A ENT4A+7_ Ore ee 
LDA 604 
—sLDB tet | “5° a | 
A XOF yg CSFAS413) CPA IF FL.SUB PATH 
~yLDX  ,8FAS+8 FLAG 1 | a2 
» JAP og HH Yale . ; 
ihins, GoiaR SRO Doce hee ee, fe A ee | a 
4 EXR ; | | re 
4 STX » $F AS49 TEMP FLAG 3 
8G ALL 5SFSM 7 | 
»STX  ,.SFAS+10 . EB (EXP OF B). 
,STA  — ,SFAS45 B (MS MANT). 
,S8TB ,%FAS+#7 - BB (LS MANT) 
»SUB »SFAS4+14 EB -EA 
be. J ASRA. UNBITH9 SF 15 
7 a eee ae 4 ~~ ~ a 
toe » JAP #45 IF +VE 8YPASS 
CPA NEGATE 
» TAR ‘ SET. 
»1XR ; FLAG 2 
4 TAB ‘ | 
SUR »$FAS412 CHK F@R MAX 
y JAN #43 aK 
,LDB »SFAS4+12 = 


sTRA ; 
» ZARA »>SFAS +14 SEN LASR INSTR 
ae: oe 


PAGE 


2A 


# A 


ADDR. @F ARG A. 


SMALLER YF A,B 


MODIFIED SHIFT INSTR 


EXP@NENT (LARGER) | 
SAVE 
AA 


A 


G@ TO ARITH, ADD. 
PATH. 
BB 


SET SIGN PLUS 


EXCHANGE A,AA»BB 


_A=B 


EXIT PATH 
NORM, 


BB**xeARITH ADDITION PATHsaane 


Ati 
oe SIGN PLUS 


EXCHANG A,AA4BB 
A+B 


Sh F BVER FLOM 


YES, ADD @NE IN CHAR, FIELD 
SET SIGN 


LARGER EXP@NENT 
N@ ERRGR 


IS NEGATIVE = OVERFLO FOR ADDITION, UNDERFL@® FOR SUBTRACTION 


= 


»TXA ; 
» gADDTI »(SFAS+4) 
,TAX - 
’ 8) A »o rt 
»LOR srt 
<7eo? A 
saTA 20,1 
»STB 22e1 
—sLDA 46.1 
»OTA »SFAS+10 | 
»LDA »$FAS+6 
DB »SFAS+4 
» LDX »FFAS+9 
ei hE oF ADP. 
_ “ARITHMETIC. SUBTRACTION 
,SUA- -» GFAS#7 
4, JAP 44 
af DBR ig ABest, RE Se 5 
»FRA sSFAS415 
oy LERE »NBIT 
»SUB »$FAS+5 
»JIF —2NSO,FASE 
» JMPM »>SNML 
9 IMP 5416 
» ADD eSFAS+7 
» JAP B45 | 
, TBR. ’ 
eERA eo FFAS415 
»ROF na 
o@ LR »NBIT 
»ADD »BFAS+5 
»LASR- i ee 
» JAP 2 #44 
»LASR Pa! 
»ERA »SFAS+15 
»LASR& ws 
»ADD »SFAS+10 
2 JAP »FASE+3 
»TZR * 
»LDAL =, AERR 
,CALL =, SER 


ws 
al % 


,ZERB ~—s-_ , 03 ’ epee. 


 -FASE ,LDX ,&FAS4+3 RESTORE XR> 
ROE ae - | 
»TXA 1- N@.COMPL. BY SNML,O=@RIG. RESULT 


,ADD 4) SFAS+B SIGN@F ARGA A. 


J sLDA 4 $FAS+#4 = RESTORE AR 
+ JXZ: a wad fa > 
yg LDX ss BFASS3 RESTORE XR 
AERR- ,EQU ag Mo oe ERROR FLAG 


-ENTL STA »SFAS RETURN P@INTER 
Pee 2JMP og 4S . : 
sDATA® 50 | 
,CALL ,%SE,1,0 | 
ret et oe IMP yp PASS GA T@ START 
FAS ,ENTR : 
-. 2 SMP »ENTL #9 
4 DATA  ,22,05211 SIZE MANT ,CPA 
»LASR pe aes | | 
,DATA »0100000 
»MARE ® on 
SEND ‘ 


PAGE 3n 


$FSM- 


Ae ee 


BFSM =6ENTR 
STA 
» ANA 
oy TAX : 
ae »ERA | 


ELA Se 
»JMP # 


a) oe »DATA 
— GFMS  ,EQU 


TESM ,DATA. 


4s MORE 
"END 


,TFSM 


»>TFEFSM+e1 


FLAATING POINT MATH 146 BIT, MUL/DIV - 


SEPARATE MANTISSA 


AR,BR CONTAIN FL.PT. - 


EXIT W/ EXP IN XR»MANT 


AT SFO 


MANT. TO HI ORDER SF 4 


MASK 


PAGE = 31 | 7 
FLOATING POINT MATH 16 BIT, MUL/DIV 


% 
* : a ae 
A SNMLY NORMALIZE ROUTINE | 
+ | ENTER WITH NR, IN A,B SF QO 
* : : : 
JSNML OO SENTRO gL cae att 
Pe se PLES »030,8NML EXIT IF ZERQ 
9 TZX . , 
SAP 45 


FCALL = XDCO NEGATE A,B 


JAN #45 QUT OTF NORMALIZED 
2>JMP gp #e4 CC OF LEADING ZERGS 


STA aNMLT+1. SAVE MANT, 


-,ASLA »NBIT#9 FORMAT FOR FL.PT,EXP, 


,ARA »NMLT+4. ADD MANT, 
»LDX »NMLT FLAG FOR «VE NR 
»JMP# 9 SNML | 
NMLT ,DATA 40,0 
wh MORE yoo. 


PAGE 32 


6 GIS-1— 


’ 


#423 


GIS +4 - 


»NBIT#1. 


2 $TS45 
SIS 44. 


%44 


»NBIT+0200 


oee4 


$1Se5_ 


aaed, 
2 81S4S | 


ele: 
steel 


4 $SE,1,9 


t3. 


,RIS 


2050.0. 


2 


FLAATING POINT MATH 16 BIT, MUL/DIV 


CONVERTS FIXED PT, INTEGER T@ FLOATING PT, 


INPUT IN A, OUTPUT IN A,B REGS, 


ZERG T2 B 


SAVE. NO, _ . | | 
i? SHIRT RIGHT 15, 17 PLACES — 


TS. NO NEGATIVE | 
YES, Twas COMPLEMENT 
THE INTEGER, 


BASE CHARACTERISTIC +EXP 16,18 
G@ FORMAT IF NEGATIVE 


LOGICAL LEFT 1 


IF SIGN SET, G@ FORMAT THE NO, 


IF NOT DECREMENT EXP@NENT AND NORMALIZE 


EXPONENT AND MOST SIG. MANTISSA IN AR 


COMPLEMENT IF NEGATIVE 


SHIFT SIGN @F_B T® BIT 14 AND SET SIGN=0 
RESULT IN L@CATION SPECIFIED, | 
SEC@ND WORD GF RESULT IN SPECIFIED L@Cc, 


REST@RE X 


PAGE «33 


as aa 
$MDV 


# $PS 


- 4 6 
0. 


»SET og 
a SET. 


eee iia ak AN ert een ee 
030,458. 
cp HOG | 


iy oe. 2 “COMPLEMENT 
a BSPS04 
fr S22 © ee 

a@SPSe5 


PORE EE RM SRT Oe ce ee RE REG ame Me 


 N® MULTIPLY OR DIVIDE stale selene ae wane ma ea 


CONVERTS FL@ATING PT, TQ 
INPUT. A,B OUTPUT IN A. “AND 


AN INTEGER ee ee te 
EPCATION SPRGUG 1D lect he ee ot 


Gp SAVE RESULT TF ARBEO, nr? 0 ne een i ae 


BASE Toatucae i ct a eeee 
IF NEGATIVE, THE N@ IS A FRACTION _ 


_CHECK F@R MAX EXP OF 16. 


»JAN np #445 _IF_LESS CONTINUE, Fs Sain a assAe Pet aig eg Osh nc a vec eta eae : 
» SUB — sSPS*#6 Pena ' x = a 4 
rJlF — O70, 446 | TF -20015 Go To EXIT PATH, . AS Bs X20 _ a5 So. Se aia a es ae 


as 


1 SPS47 
ee kt 2 
105 


_SET OVERFLOW FOR ERROR 
ZERO TO A,B REGS, 
GO TO EXIT PATH 
ee PATH Bye ere ee ine 
ZERO TO AB. 


em bean eee teense AMAT Sette A ORONO A SORTS EN: RR LL ENN NAR. an ant, 


p e422 ees 


SR a NBITe9 | 
oe oe CCA)= _EXPON, 


— SPS#g 


ela 


EXIT PATH 
MANTISSA T@ BR nena ntceae ee 
EXP “16 A VE. WALUE 7 
A NOW CONTAINS THE N@ OF FRACTIONAL BIT 
PRESENT IN THE B REG, 
ASRB 


#415 


7*##0) = LOCATION MOD, 
4 | ARFIXD PT, 
oe 


BY PROGRAM, | 
INTEGER | 


JUMP IF ARG POSITIVE 
NEGATE. 


072 B 

FLAG FOR N@RMAL RETURN 
FETCH STORE AUORE SS 
SAVE RESULT © 

RESTORE X 


a  estucyed MB ery Sea ninns bates 2 si Bites Mh hE eae ee Spee ae oe nce memes 
Oat acta : Peake ees ee Sl aa ts = nig 
PAGE 3k Ne Sata He Re a 
sORG gp Hmd > . : coe ee ee ee ee : 
oh a eee See aes A 
F * a RR EN Nn nat AR ser oma ee oasis es nero samt rR oem he Oi ah oie open a ate 


2 


| 

stupas aman ex ino A Atewneieieae ee cece nie ee ot 
j : 
| — — 


Bo 


7 
~~ a pane SS maiasee pan nr rece a ns oe a _ ee nee ne. an a - S fo eo 
~ Si erties is me — wee ee ee ee oes Ses _- ae ama ~ ~ = ne ns 
‘ ick 
FARE 9 DWE ORT ERE TR CPN EARS TO REN MRCS SEITE CY UNTER RENT PTO loom cinanemiats talento bedeimmenntememeenennmaieemmnenieaenreneemieninaliel 


acesoare ao ne Ow rae pone, Le nF LECTIN I EAE A RO IE A ERIE AI EN 
J. ve mae rene wate ~ vont 1 a ae AR RI he erent 
~ 


con Sill nat AL me 


PAGE 35 


, tt FLOATING. POINT MATH 46 BIT: “MUL/DIV 
and we TABS 28 ae: COMPUTES ABSOLUTE VALUE @F FIXED POINT NO, IN A REG. 
b : : 
TABS..,ENTR: 
ee Cea ,$SE,1,0 


»LDXI CABS #4) 
»LDX Ost. 


JAP iis) LF pasITIve EXIT. 

cl) eee en a COMPLEMENT AND 

sh eR ce rr COMPLEMENT. 
yJMPe TABS. EXIT. 


peat never reaanereent sa net A Ne caeotans sonia Simmer iene on Fes mame tm ate cain inte Noman a le mage oe time ce genes am ee need Pore cars eee 


PAGE 346 

* FLOATING P@INT MATH 16 BIT, MUL/DIV. | 
Het gane: 2 COMPUTES ABSOLUTE VALUE @F FLOATING POINT NUMBER 

| | ae ge 


BS .ENTR 
» CALL »$SE,1,10 
-,LDXE =, CABS #4) 
co EDA ne Oak - 
4LDB t,t 
a JAP# 4 ABS tg, Sete: ws fe 
BERR gt Oe COMPLEMENT HIGH ORDER WORD 
»JMP* ,ABS = AND EXIT. | 
eee --yM@RE . ae 
Pee ee END, ch: 


mnennhtieet ss ernment ~ 


* 
.- 3 
#* ESIG 
* 
+ 


37 


yy JAP 
»CPA | 
+ TAR 
_ 9 STA. 
— p STX 
aL DAD 
»ASRA 


,H+4 


oa 


ie) 


FLOATING POINT MATH 16 BIT, MUL/DIV 


SETS SIGN OF FIXED PT, NO EQUAL TO SIGN 
OF NG. SPECIFIED IN CALLING SEQUENCE, 


,ISIGN+8 | 


»ISIGN+7 


~sTSIGN+e7 | 

i? ae 
»NBIT#=14- 

»TSIGN+8 | 


etd 


ye mr ta sess aienriine ne emg pom 
| Poteet ne 


[BRR eneri pon anaes aR NG IOC aE Eee 


38 


, FLOATING POINT MATH 


»ENTR 
CALL 


» END 


Raper ener enna een new meer any cette oe tans ik Ray ene ame nan pat sane et 


#43 


,SIGNS8 


 sSIGN47. 
STGN+4— 


043 


- yNBIT# : ee 
ySIGN+8 
eSIGN+7- 
ao ag Mee : 
pent 
2. A SSE, A 
“y DATA 
4 SMP 
»DATA 
»M@RE 


0 


ante i 


SETS SIGN OF: INPUT PARAMETER EQUAL TO SIGN. 
OF. SPECIFIED N@ IN CALL. 


sae BIT, MUL/DIV 


SEQ. 


; IF N@ NEGATIVE 


COMPLEMENT “AND 


_ SAVE” XR ee 


eevee va 


Os THE SECOND NO, 


y oes . 


rae 


FLOATING PT, 


eit, 


PAGE 39 


~ $HM 


0 


FLOATING POINT MATH 16 BIT, MUL/DIV. 


;NBIT.  ~—.—s—s SCALE «MULTEPLICAND 


oe “MULTIPLY 
i sNBIT=1 0° © SCALE PRODUCT. 
~ 50 a et a RETURN : 


ENTRY 


4$SE,1,0 ' GET ADDR OF MULTIPLIER 


INTEGER MULTIPLY (HARDWARE) 


= SHN 


—yLDX . s@HN+4 


40 


FLOATING POINT MATH ~ 16 BIT, MUL/DIV 


GET DIVIS@R 


es E DR, Oat 


2 SHNG 4 AND SAVE 
oe ~~ -SJGN IND = POS 
WNP IE DIVIDEND Pas. 


7 SET ‘SIGN. “IND ee 
SCALE DIVIDEND 


DIV SHNeS “DIVIDE 


TiatPk se eg ae ELSE INVERT QUOTIENT 


rs) ee ee AR. 2 QUOTIENT 
9 SMP pe RETURN 


Wo SENTRY ue ENTRY 


GET ADDR OF DIVISOR 


INTEGER DIVIDE (HARDWARE) 


_ RETURN IF_P@S DIVIDEND _ 


PAGE at. | | | Be | % | 
FLOATING POINT MATH 16 BIT, MUL/DIV 
SSE " SUBPROGRAM ENTRY CONTROL 

SER ERROR | 


Se STA A SAVE A.B,X 


fe. ange, eee ae BR=ADDR OF SUBPGM ENTRY 
eLDA 052 _ GET ADDR OF 1ST PARAM 
Sta. Pa ae 3 ~ AND SAVE. | 8 


_sINCR  ,045 ss XREADDR BF DUMMY PARAM = 7% fee Foe 


| «STA. ~—s«SSSE=—*=~=<“—*“‘“‘“‘;™*C«<SSRT:«SUEXTT «ADDR TH SUBHPGM ae es 


 4LDA 21.2 | GET ADDR OF ITEM Ee > Oe a ™ 
_ 2JAN 922 JUMP OIF INDIRECT | 7 

ceS th: 7O0ek "=, ELSE STORE AT DUMMY. 

»TNCR 6045 2 LO@QK AT NEXT DUMMY 

_SUB  ,8SE..«———<sws:ié<iST EST «=U FILLED 

-, INR cr LO@QK AT NEXT PARAM 

) JAN »SE2 JUMP IF M@RE PARAMS 

ee LA A RESTZRE A,BsX © 


,JMP#  ,$SE RETURN TO SUBPGM 


$SE. oo ENTR og yee SENTRY. 
UMP SE4 ALLOW REL FORWARD ACCESS 


~ORA ,E SST ERROR BIT 


A sDATA- 0 | ‘AR = STOP/PAUSE N@, 
Be MATA oA ; BR = ST@P/PAUSE FLAG 


Hiatt tctiii 


E ,DATA 0 ERROR BITS -_ nat 4 Roe Sg 
SL See 5 oe, EMP CELL os a eo st pe Pees Fee, ge ee 


~ we onto 
a — au Bs 45 Paaee = — ‘= 


ie ; 


see 2 Uk Oo he 


Sine: - 
oa 


Q 


